home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / xmodem.arc / OS.MAC next >
Text File  |  1985-06-15  |  1KB  |  76 lines
  1. ; Osborne 1 interface to XMODEM in C
  2. ;
  3.     .8080
  4.     CSEG
  5. ; ----------------------------------------
  6. ; Transmits Character in A to remote.
  7. ?tx::
  8.     di
  9.     out     0
  10.     sta    2A01H
  11.     out    1
  12.     ei
  13.     ret
  14. ; ---------------------------------------
  15. ; Receives Character from remote into A.
  16. ;
  17. ?rx::
  18.     di
  19.     out    0
  20.     lda    2A01H
  21.     out    1
  22.     ei
  23.     ret
  24. ; ---------------------------------------
  25. ; Returns non-zero in A if transmitter
  26. ; ready for another character.
  27. ;
  28. ?txstat::
  29.     di
  30.     out    0
  31.     lda    2A00H
  32.     out    1
  33.     ei
  34.     ani    00000010b
  35.     ret
  36. ; ---------------------------------------
  37. ; Returns non-zero in A if receiver has
  38. ; a character ready.
  39. ;
  40. ?rxstat::
  41.     di
  42.     out    0
  43.     lda    2A00H
  44.     out    1
  45.     ei
  46.     ani    00000001b
  47.     ret
  48. ; ---------------------------------------
  49. ; Returns zero in A if carrier is lost.
  50. ;
  51. ?abort::
  52.     di
  53.     out    0
  54.     lda    2A00H
  55.     out    1
  56.     ei
  57.     ani    00001000b
  58.     xri    00001000b
  59.     ret
  60. ; ---------------------------------------
  61. ; jumps to local console output routine
  62. ; (bypasses BYE intercepts. Very, very
  63. ; version dependent. You need to jump
  64. ; to where BIOS vector #5 (console out)
  65. ; jumps if BYE isn't loaded.
  66. ;
  67. ?lcon::
  68.     jmp    0CC3AH        ;For TRANTOR CCP
  69.     end
  70.  jump
  71. ; to where BIOS vector #5 (console out)
  72. ; jumps if BYE isn't loaded.
  73. ;
  74. ?lcon::
  75.     jmp    0CC3AH        ;For TRANTOR CCP
  76.     en